home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 1 / Cream of the Crop 1.iso / PROGRAM / CBGRX100.ARJ / WINCLIP.C < prev    next >
Text File  |  1992-04-10  |  2KB  |  62 lines
  1. /** 
  2.  ** WINCLIP.C 
  3.  **
  4.  **  Copyright (C) 1992, Csaba Biegl
  5.  **    820 Stirrup Dr, Nashville, TN, 37221
  6.  **    csaba@vuse.vanderbilt.edu
  7.  **
  8.  **  This file is distributed under the terms listed in the document
  9.  **  "copying.cb", available from the author at the address above.
  10.  **  A copy of "copying.cb" should accompany this file; if not, a copy
  11.  **  should be available from where this file was obtained.  This file
  12.  **  may not be distributed without a verbatim copy of "copying.cb".
  13.  **  You should also have received a copy of the GNU General Public
  14.  **  License along with this program (it is in the file "copying");
  15.  **  if not, write to the Free Software Foundation, Inc., 675 Mass Ave,
  16.  **  Cambridge, MA 02139, USA.
  17.  **
  18.  **  This program is distributed in the hope that it will be useful,
  19.  **  but WITHOUT ANY WARRANTY; without even the implied warranty of
  20.  **  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  21.  **  GNU General Public License for more details.
  22.  **/
  23.  
  24.  
  25. #include "test.h"
  26.  
  27. TESTFUNC(winclip)
  28. {
  29.     int x = GrSizeX();
  30.     int y = GrSizeY();
  31.     int ww = (x / 2) - 10;
  32.     int wh = (y / 2) - 10;
  33.     int c;
  34.     GrContext *w1 = GrCreateSubContext(5,5,ww+4,wh+4,NULL,NULL);
  35.     GrContext *w2 = GrCreateSubContext(15+ww,5,ww+ww+14,wh+4,NULL,NULL);
  36.     GrContext *w3 = GrCreateSubContext(5,15+wh,ww+4,wh+wh+14,NULL,NULL);
  37.     GrContext *w4 = GrCreateSubContext(15+ww,15+wh,ww+ww+14,wh+wh+14,NULL,NULL);
  38.  
  39.     GrSetContext(w1);
  40.     c = GrAllocColor(200,100,100);
  41.     drawing(0,0,ww,wh,c,GrBlack());
  42.     GrBox(0,0,ww-1,wh-1,c);
  43.  
  44.     GrSetContext(w2);
  45.     c = GrAllocColor(100,200,200);
  46.     drawing(-ww/4,ww/3,ww,wh,c,GrBlack());
  47.     GrBox(0,0,ww-1,wh-1,c);
  48.  
  49.     GrSetContext(w3);
  50.     c = GrAllocColor(200,200,0);
  51.     drawing(ww/2,-wh/2,ww,wh,c,GrBlack());
  52.     GrBox(0,0,ww-1,wh-1,c);
  53.  
  54.     GrSetContext(w4);
  55.     c = GrAllocColor(0,100,200);
  56.     drawing(-ww/2,-wh/2,ww*2,wh*2,c,GrBlack());
  57.     GrBox(0,0,ww-1,wh-1,c);
  58.  
  59.     getkey();
  60. }
  61.  
  62.